home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flwrh13.dir / 00136_Script_136 < prev    next >
Text File  |  1994-11-15  |  2KB  |  86 lines
  1. on startMovie
  2.   cursor 4
  3.   global nowFrame, currMM
  4.   set currMM = "FLWWT"
  5.   
  6.   preLoadCast 1,8
  7.   
  8.   puppetSprite 21, TRUE
  9.   puppetSprite 22, TRUE
  10.   puppetSprite 23, TRUE
  11.   puppetSprite 10, TRUE
  12.   set the immediate of sprite 23 to TRUE
  13.   set the stretch of sprite 23 to FALSE
  14.   set the keyDownScript to "if the keyCode = 9 then cursor -1"
  15. end startMovie
  16.  
  17. on stepMovie
  18.   global nowFrame,currFrame
  19.   if nowFrame  <> currFrame then
  20.     seeAlsoList
  21.     set currFrame = nowFrame
  22.   end if
  23. end stepMovie
  24.  
  25. on saveLocals
  26.   global lastMovie, lastFrame, nowFrame
  27.   set lastFrame = nowFrame
  28.   set lastMovie = "FLWRH13"
  29. end saveLocals
  30.  
  31. on buttonState
  32.   global FrankNav, bFlag
  33.   
  34.   if rollover(10) then
  35.     set the castNum of sprite 10 to 1082
  36.     if the mouseDown then
  37.       set the castNum of sprite 10 to 1083
  38.     end if
  39.   else
  40.     set the castNum of sprite 10 to 1081
  41.   end if
  42.   
  43.   if rollover(5) then
  44.     rollCheck
  45.   else
  46.     set pos = 0
  47.     cursor -1
  48.   end if
  49.   if (the mouseV > 400) or (bFlag = TRUE) then
  50.     doState
  51.   end if
  52. end buttonState
  53.  
  54. on rollCheck
  55.   global right, left, forw, pos
  56.   if the mouseH>=446 and the mouseH<=537 and the mouseV>180 and the mouseV<420 then
  57.     if right = 1 then
  58.       set pos = 3
  59.       cursor [1065,1066]
  60.     else
  61.       set pos = 0
  62.       cursor [1071,1072]
  63.     end if
  64.   else if the mouseH>=217 and the mouseH<=308 and the mouseV>180 and the mouseV<420 then
  65.     if left = 1 then
  66.       set pos = 1
  67.       cursor [1069,1070]
  68.     else
  69.       set pos = 0
  70.       cursor [1071,1072]
  71.     end if
  72.   else if the mouseH>=307 and the mouseH<=447 and the mouseV>180 and the mousev<=420 then
  73.     if forw = 1 then
  74.       set pos = 2
  75.       cursor [1067,1068]
  76.     else
  77.       set pos = 0
  78.       cursor [1071,1072]
  79.     end if
  80.   else
  81.     set pos = 0
  82.     cursor -1
  83.   end if
  84. end rollCheck
  85.  
  86.